From: Jay Belanger Date: Sun, 8 Jul 2007 00:14:16 +0000 (+0000) Subject: (math-bignum-digit-size,math-small-integer-size): Evaluate when compiled. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~18045 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=6fad90fcd703b91182537766e91570fcb06298b4;p=emacs.git (math-bignum-digit-size,math-small-integer-size): Evaluate when compiled. --- diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el index d85ec55d175..8eebee90930 100644 --- a/lisp/calc/calc.el +++ b/lisp/calc/calc.el @@ -2292,10 +2292,12 @@ length of the allowable Emacs integers N0, N1,... The value of 2*10^(2*MATH-BIGNUM-DIGIT-LENGTH) must be less than the largest Emacs integer.") -(defconst math-bignum-digit-size (expt 10 math-bignum-digit-length) +(defconst math-bignum-digit-size + (eval-when-compile (expt 10 math-bignum-digit-length)) "An upper bound for the size of the \"digit\"s in Calc bignums.") -(defconst math-small-integer-size (expt 10 (* 2 math-bignum-digit-length)) +(defconst math-small-integer-size + (eval-when-compile (expt 10 (* 2 math-bignum-digit-length))) "An upper bound for the size of \"small integer\"s in Calc.")